home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / DRTABLE.INT < prev    next >
Encoding:
Text File  |  1997-08-05  |  2.0 KB  |  100 lines
  1. unit DRTable;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, BDE, DB, DBTables;
  6.  
  7. type
  8.  
  9. { TDRList }
  10.  
  11.   TDRList = class(TBdeDataSet)
  12.   protected
  13.     function CreateHandle: HDBICur; override;
  14.   end;
  15.  
  16. { TDRDataSet }
  17.  
  18.   TDRDataSet = class(TBdeDataSet)
  19.   public
  20.     property DRHandle: HDBIDR;
  21.   end;
  22.  
  23. { TDRObjectDescList }
  24.  
  25.   TDRObjectDescList = class(TDRDataSet)
  26.   protected
  27.     function CreateHandle: HDBICur; override;
  28.   end;
  29.  
  30. { TDRObjectItems }
  31.  
  32.   TDRObjectItems = class(TDRDataset)
  33.   protected
  34.     FObjectName: string;
  35.   end;
  36.  
  37. { TDRRelationshipDescList }
  38.  
  39.   TDRRelationshipDescList = class(TDRObjectItems)
  40.   protected
  41.     function CreateHandle: HDBICur; override;
  42.   published
  43.     property ObjectTypeName: string;
  44.   end;
  45.  
  46. { TDRAttrDescList }
  47.  
  48.   TDRAttrDescList = class(TDRObjectItems)
  49.   protected
  50.     function CreateHandle: HDBICur; override;
  51.   published
  52.     property TypeName: string;
  53.   end;
  54.  
  55. { TDRInstanceItems }
  56.  
  57.   TDRInstanceItems = class (TDRObjectItems)
  58.   published
  59.     property Condition: string;
  60.   end;
  61.  
  62. { TDRObjectList }
  63.  
  64.   TDRObjectList = class(TDRInstanceItems)
  65.   protected
  66.     function CreateHandle: HDBICur; override;
  67.   public
  68.     procedure NavigateFrom(const ASource: DRObject; const ARelationship: string);
  69.   published
  70.     property ObjectTypeName: string;
  71.   end;
  72.  
  73. { TDRRelationshipList }
  74.  
  75.   TDRRelationshipList = class(TDRInstanceItems)
  76.   protected
  77.     function CreateHandle: HDBICur; override;
  78.   public
  79.     procedure NavigateFromTo(const ASource, ATarget: DRObject);
  80.   published
  81.     property RelationshipTypeName: string;
  82.   end;
  83.  
  84. { TQueryDescription }
  85.  
  86.   TQueryDescription = class(TBdeDataset)
  87.   protected
  88.     function CreateHandle: HDBICur; override;
  89.     procedure DestroyHandle; override;
  90.   public
  91.     property Query: TQuery;
  92.   end;
  93.  
  94. const
  95.   NullDRObject: DRObject = (ulObjId: 0; iVersion: 0);
  96.  
  97. { **************************************************************************** }
  98.  
  99. implementation
  100.